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MODULE setmisc ( +! = *v04-000', 


IDE 
es SSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL=LONG RELATIVE) 


. 

PEEP ESISIIIIIT ITI TIT TTTrtrrerriTrririiitit lis i itis iit iti titi iiiiiit 
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ie TRANSFERRED. 


i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
;: eempokat ibe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!# SOFTWARE ON EQUIPMENT WHICH 1S NOT SUPPLIED BY DIGITAL. 

i 
lodanbbnbeebeeneduniamnetinedsanennsnebhetenbinsnenbennneatennnnansenennnete 


ie COPYRIGHT (c) 1978 1980 1982, 1984 BY 
1 ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
is ALL RIGHTS RESERVED 
1 ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
1 ie ONLY IN ACCORDANCE WITH THE TERMS OF rsyce LICENSE AND WITH THE 
1 ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS $ SOFT WARE OR ANY OTHER 
ie cop ES THEREOF MAY NOT BE PROVIDED OR STHERUISE MADE AVAILABLE TO ANY 
1 
1 
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® 
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HER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
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# 
* 
* 
* 
* 
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® 
* 
* 
* 


'¢ 


FACILITY: SETPRO Command 
i ABSTRACT: 

This module sets various parameters in the system. 
i ENVIRONMENT: 

VAX/VMS operating system. Privileged user mode. | 
i AUTHOR: Gerry Smith 12-Jan-1983 | 
i Modified by: 


v03-010 AEWO001 Anne E. Warner 24-Jul-1984 
Add a check to see if the qualifier is present before 
gett tin the value to the following qualifiers: 
/INTERACTIVE in SETSLOGINS 
/BLOCK_COUNT in oI RMS_DEFAULT 
/BUFFER_COUNT in S aT M idee 
/PROLOGOE MT CETSAAS B 
/EXTEND _Q UANT iy: 1 r SETSARS,p FAULT 
NETWOR n SETSRAS DEFAULT 
This check is coe rh behavior with negated qualifiers 


v03-009 DAS0001 David Solomon 09-Jul-1984 
Fix truncation errors; make nonexternal refs LONG_RELATIVE. 
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v03-008 RASO281 on Schaefer 27-Mar-1984 
Add Network Block Count to SET/RMS command. 


v03-007 MCNO155 Maria del C. 01-Ma + 
The disallow flag offset in the “pce is from 0 bepinging 
of the structure, and not a status flag. Th ; wi fix 
the behavior of. the /ADJUST qualifier. 


v03-006 GAS0172 Gerry Smith gevAug~ 1985 
When enabling logins, use a Zyabol ic, UCBSV_TT_NOLOGINS, 
instead of ae 


03-005 GAsO158 Smith 25-Jul-1983 
For SEY LOGIN/INTER=0, do’not discble the cevstion of 
interactive jobs. 


v03-004 pase) 34 Gerry Smith 17-Ma oy 1985 
For SET WORKING_SET, use twice the number of fluid pages, 
rather than one. 


v03-003 andy Gerry Smith 29-Mar-1983 
Remove all references to the Yold CLI interface. 
v03-002 GASO111 Gerry Smith 9-Mar-1983 


An the outeyt of SET LOGIN.” Also calculate a bette 
minimum working set to use as a limit in SET WORKING. SET. 


v03-001 gASOT10 ry Smith 28-F eb-1983 
Fix a couple of bugs withe SE RMS and SET WORKING_SET, 
caused by incorrectly computing the new RMS Limit, and 
the new working set parameters. 


iebetage QB:4R:S4 YMGHE iegcze att Ol, 


qed 
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; 93 1} 

; ; ; Include files 

. ! 

; ] LIBRARY "SYSSLIBRARY LIB"; ! VAX/VMS common definitions 

; 1! 

3 , } : Define the bit offsets for the SET DAY qualifier flags byte. 

; i ! i RACRO t i 1 z 

3 set$v_primar = 0, 2, 1, 0%. 

3 7 : 1 ty oy eee = 0, ¢: 1, oF: 

: } ¢ ! set$v_default = 0, 4, 1, 02; 

: 4 1! 

3 ; : : : Define the bits for the SET RMS command 

s 108 1 MACRO 

; 110 1 set$v_system = 0, ¢: 1, Os. ! /SYSTEM 

; 111 10 1 set$v_block = 0, 3, 1, 02, ! Block count specified 
3 i\¢ 111 set$v_buffer = 0, 4, 1, 0%, ! Buffer count specified 
oe i 1 set$v_prolog = 0, 5, 1, 0%, ! Prologue level specified 
3; (116 1 1 setSv_ disk = 0, g. 1, O%, ! /DISK 

; 6115 14 «1 set$v_tape = 0, 7, 1, 0%, ! /MAGTAP 

3 118 15 1 set$v_unit = VU, 8. a be ! /UNIT REC 

Ng a ee: a Ee SSS oF: | PRECR ve 

: 11 18 1 set$v-index = 0.11. 1. 0%. i / INDEXED 

; 120 15 1 set$v_hash = ate 1, O02, ! /HASHED inoybe someday) 
3: 121 0 1 set$v_extend = 0,15, 1, 02, ! /EXTEND QUANTITY 

: ; ; ' set$v_netblk = 0,14, 1, 0%; ! /NETWORR Block Count 

: 126 1! 

3 : é : ! Define some bits for the SET WORKING_SET command 

5 1 1 MACRO 

; 128 § 1 set$v_log =0, 0. 1, or, /ENO3LOG 

: 129 : 1 set$v_explog = 0, 1, 1, 0%, ! /CNOJLOG set explicitly 
: 13 a bveen ser a i /OUOTA 

..-% é 1 1 set$v-extent = 0. 4. 1. te i /EXTENT 

me § 1 set$v_expadj = 0, 5, 1, te ! /ENOJADJUST set explicitly 
3 ; : ! set$v_adjust = 0, 6, 1, 0%; ' /CNOJAD 

..¢ 5 1! 

Z : : ; Declare some shared messages 

: 1 P 8 1 $SHR_MSGDEF (SET,119,LOCAL, 

3 re Pp 1 (conf qual error), 

; 14 P0140 1 (invquaval, error) 

: 148 4) 4 (valerr, error)5; 

; 14 42 1 


— ee 
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' 
Table of contents 


FORWARD ROUTINE 
set$day : NOVALUE, ! Set the day primary or secondary 
setdayknl, ! Kernel mode routine to set the day 
set$login : NOVALUE, ! Set the number of interactive users 
setlogknl, ! Kernel mode routine to set logins 
setSrms_default : NOVALUE, ! Set the various RMS defaults 
ot Nene y FE ! Kernel mode routine to set RMS 
set$Sworking_set : NOVALUE, ' Set the working get parameters 
setwrkknl; ! Kernel mode routine to set working set 


| 
t 
: External routines 
| 


exten, ROUTINE 

LibScvt_dtb. ' Convert ASCII to binary 
cli$get_value, ' Get value from 
cli$present; ! See if qualifier is present 


| 
$ 
External references 


EXTERNAL 
exesdt.flags : SBBLOCK, 
cb, 


! The prreret system flagword 
! Address of this process's PCB 
' Process-mapped PHD 
! Process privilege mask 
Job controller mailbox 


ctl$gq-procpriv : $BBLOCK, 
sys$gl_jobctlmb : S$BBLOCK, 
sys$gw_ijobcnt : WORD, 


Number of current interactive jobs 
sys$gw_ijoblim : WORD, it 


Interactive job Lim 
Multiblock counts 


a a a a ed ae od a a = 8 “ns td 2 1 8a a — = 
109 09 09 C9 C9 09 08 09 SIN SIN NINN NNO A AAAAAAAR FS at at ee 
SSR AR oe HS Se NO AN UI OOo I Ae end oo Oto ane no Dee enon 
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o 
— 


sys$gb_dfmbfidx : BYTE, 
sys$gb_dfmbfhsh : BYTE, 
Sys?op_¢taptret : BYTE, 
pio$gb_dfmbfsdk : BYTE, 

io$gb_dfmbfsmt : BYTE, 
pio$gb_dfmbfsur : BYTE, 
pioSgb_dfmbfidx : BYTE, 
pio$gb_dfmbfhsh : BYTE, 
pio$gb_dfmbfrel : BYTE; 


sys$gb_dfmbc : BYTE, (system) 

pio$gb_dfmbc : BYTE, (process) 

Syse9p.dinde BYTE, (system) Network 

pio$gb_dfnbc : BYTE, (process) | 
Prologue levels 

systep_rasprotos : BYTE, (system 

pio$gb_rmsprolog : BYTE, (process) 
Default extend quantities 

Systou_rasextend : WORD, (system) 

pio$gw_rmsextend : WORD, (process) 

89 Multibuffer counts 
sys$gb_dfmbfsdk : BYTE, Disk (system) 


Tape (system) 
Unit_record (system) 
Indexed files (system) 
perned files (system) 
Relative files (system) 
Disk (process) 

Ay 4 (process) 
Unit_record (process) 
Indexed files (process) 
Reshed files (process) 
Relative files (process) 
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Declare Literals defined elsewhere 


ia LITERAL 

exeSv_explicitp, 
exe$v “explicits, 
cli$_absent, 
set$_newlims, 
set$_intset; 


Flags to show whether the day is 
secondary or prima — 

Cul ee seying qualifier absent 
Informational message for SET WORKING_SET 
Informational message for SET LOGIN 


SRLESRENLS 
a a nr ian on ry 
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; 216 1 GLOBAL ROUTINE set$day : NOVALUE = 

: $e 1g § fase 

; 7 1 Functional description 

: i8 i$ i This is the routine for the SET DAY command. It is called from the 

3 1 ! SET command processor, and sets the day to be either primary or 

: ; : : secondary, or sets it back to its default. 

: Z Inputs 

g 5 ¢ ' 

3 8 ' Outputs 

3 4 : None 

: 328 at 

; 231 8 LOCAL 

3 § status, ' Status return 

3 argist : VECTOR(2), ! Argument List for SCMKRNL 

3 1 flags : S$BBLOCKL1 ! Flags by Fee 

; 5 ; INITIAL (BYTE(0)); ! originally zero 

; h 2! 

; : 5 : Find out what the day is supposed to be set to. 

: 260 flags(set$v_secondary] = cli$present(ZASCID ‘SECONDARY'); 

; 261 flags setévaprimeryd = cli$present(ZASCID ‘PRIMARY'); 

; 26 9 flags(set$v_default = cli$present(ZASCID "DEFAULT'); 

BYE 

3 46 0 4g ; See if the user has the OPER privilege. If not, signal an error. 

. 0944 if NOT .ctl$gq_procpriv(prv$v_oper] ! User must have OPER priv. 

; 248 0245 THEN SIGNAL. S10P(ss6nooper) :~ 4 , 

: $38 a347 ; 

3 3 0 48 Change mode to kernel and set the day. 

: $38 0250 argist(0] = 1: | 
3 254 0251 2 argistli) = flags; | 
3; 255 P 0 3 IF NOT (status = $CMKRNL(ROUTIN = setdayknl, 
; 36 5 ARGLST = arglst)) | 
: 2 33 THEN SIGNAL_STOP(.status); 

: 259 RETURN 1; 

: 260 8 3$ END; 


TITLE SETMISC 
IDENT \V04-000\ 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


00 00 00 59 52 41 44 4E 4F 43 45 53 00000 P.AAB: .ASCII ty leans ; 
34494 QOOC P.AAA: .LONG 17694729 : 
0000000" 00010 -ADDRESS P.AAB : 


"1 
1h-Sep-1986 00:43:54 VAX@11 BLise-32 v4.07 p 
Weaeea fobs HSidarty eee tees see nY$e°5 582, vet 


00 59 52 41 4D “7, 016007 14 P.AAD: .ASCII Vreperer 


1C P.AAC: LONG : 
-ADDRESS P.AA : 
00 546 4C 55 41 46 / 44 4 BeAAE: “ASCII NDEFAULT\<O> : 
§3080090" 0 : LS DRESS P.AAF : 
.EXTRN LIBSCVT_DTB, CLISGET_VALUE 
eEXTRN Sheers EXESGL L_PLAGS 
eEXTRN CTLSGL CTLSGL_P 
-EXTRN CTLSGO_PR PROCPRIV 
SEXTRN SYS$6L - JOBCTLMB 
-EXTRN SYSS$GW-IJOBCNT, SYSS$GW_IJOBLIM 
-EXTRN SYS$GB~DFMBC, P10$GB_DFMBC 
-EXTRN SYSS$GB-DFNBC, P10$GB_DFNBC 
-EXTRN SYSS$GB_-RMSPROLOG 
-EXTRN PIO$GB-RMSPROLOG 
.EXTRN SYSS$GWRMSEXTEND 
-EXTRN PIOSGW-RMSEXTEND 
.EXTRN SYS$GB_DFMBF SDK 
.EXTRN SYS$GB_DFMBF SMT 
.EXTRN SYS$GB_DFMBF SUR 
.EXTRN SYS$GB_DFMBF IDX 
.EXTRN SYS$GB_DFMBFHSH 
-EXTRN SYSS$GB_DFMBFREL 
.EXTRN PIOSGB_DFMBF SDK 
EXTRN PIOSGB_DFMBF SMT 
.EXTRN PIO$GB_DFMBF SUR 
-EXTRN PIO$SGB_DFMBF IDX 
.EXTRN PIO$GB-DFMBFHSH 
EXTRN PIOSGB~DFMBFREL 
EXTRN EXESV_EXPLICITP 
EXTRN EXESV_EXPLICITS 
-EXTRN CLIS_ABSENT, SETS_NEWLIMS 
-EXTRN SETS_INTSET, SYSSCMKRNL 
001¢ 00000 .ENTRY SETSDAY, Save R2,R3,R4 : 0211 | 
54 000000006 00 9E 9002 MOVAB LIBSSTOP, R4& : 
3 00000000' EF 9€ 0000 MOVAB P.AAA, R ; 
2 000000006 060 9 0010 MOV CL ISPRESENT, R2 : 
5€ ¢ ge 001 SUBL2 #12, SP : 
$f iA CLRB : 
DD 0001C¢ PUSHL : 
gi FB OO1E CALLS #1, CLISPRESENT : 
01 g FO 00021 INSV RO, #3, #1, FLAGS ; 
10 A3 9F 000 $ PUSHAB P. : 
63 gi FB 00 CALLS #i, ¢ ISPRESENT ; 
01 0 9 F ¢ INSV RO. #2, #1, FLAGS ; 
20 Ad OF 1 PUSHAB P: 4 : 
62 gi F CALLS . CLISPRESENT : 
1 4 g F 7 INSV FLA : 
8 000000006 00 ¢ S #2, ,¢1L$G0,P PROCPRIV+2, ; 
E 2894 BF 3¢ 00044 MOVZWL F 
6 1 FS 49 CALLS UBS tap ; 
04 AE 1D C 1$: MOVL Ae ARGLS : 


pee l 


lS 


; Routine Size: 


109 bytes, 


000000006 


Routine Base: 


AE 
00 
5 


= ¢s 


os ES Sis 
O000v EF 44 0057 
BR He 
0 00 00067 
01 FB 00069 
04 0006C 2$: 
SCODES + 0000 


1b-Sep-19 
14-Sep-19 


o: 743:54 
2:09:11 


sas 
We, gat am 
STATUS, 2$ 


STA 
“i, 


AX-11 Blis 
CLIUTL.SRC 


FLAGS, ARGLST+4 
ARGLST 


U 
LIBSSTOP 


-32 v4.0-7 P | 
sétnlse 08271 19° 4S 
: 0251) 
: 0253 
; 0254 | 
t 0257) 


SSoteReese 
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me 
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RP ataS tae 


Doo wo 


Bo Se Se Se Se Ge Se Se Se Se Se Ge Se Ge Ge Ge Ge Se Se Fe Se Se Fe Se Ge Ge Se Se Se Ge Se Ge Se Se Se Ge Se Se Se Se Se Ge Se Ge Ge Se Ge Oe Ge Ge Ge ee 
SOooooqcooqooooooooooooooooooooooo 


WAA HAMA AHAAIPIPIPIPIPIPINONINPININY 


SRIF ARUN OSBIS AER WW LO 
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NE setdayknl (flags) = 


Thi 
EX GL_FLAGS to sign 


Inputs: 
FLAGS = address of the flags byte. 


MAP flags : REF SBBLOCK; 

! 

EXPLICITS bit. 
if .flags€set$v_primary) 
THE ° - ’ 


: turn on t 


GIN 
exe$gl_flags(0, exe$v_explicitp, 1, 0] = 
preset flags 0. exeSv~ explicits ; 1. 01 = 


ELSE 
EGIN 
as ee secondary] 


BEG 
ah flagsto. exe$Sv_explicitp, 1, 
exesgl_ flags(0, exe$v_explicits, 1, 


' 
If set to be /DEFAULT, then do it. 
ELSE 


If .flagsCset$v_ mo ge 
THEN exe$gi_flags(0, exe$v_explicitp, 1 


END; ‘ 
RETURN 1; 
END 


—PINMINIWNE & BUS BEE EES FANNIN PIPIPIPUNINIPOPIPINININIPOPIPININYD 


routine mages nae Pg kernel mode, settin 


9. the longword 
y what kind of day it is. 
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i If the coy is to be set primary, then turn off the EXPLICITP bit and 
e 


: If not primary, check to see if the day should be set secondary. 


H 11 
Je~3e0~ 198? 99:6 36 AX=11 Bliss-32 V4.0-742 Page (3 


14-Sep-19 CLIUTL.SRCJSETMISC.832;1 » 
000C 00000 SETDAYKNL: 
WO Save R2,R3 ; 0258. 
$3 000000006 8F 0 0000 MOVL #EXESVEXPLICITP, R3 : | 
00000006 E 000 MOVAB EXESGL“FLAGS, R2 : 
06 04 aC E1 9010 BBC i aFCAGs, : 0279 
08 6 3 F3 0013 BBCC R3, EXESGL_FLAGS, 2$ : 4 
Oe 0% 8B ; E1 0018 1$ BBC #3, @FLAGS, 3$ : § 91 
0 4 E2 000 BBSS 3. EXESGL FLAGS, 2$ + 0294 
08 62 000000006 f F 0 4 2$: Bass EXE V_EXPLICITS. EXESGL_FLAGS, 4$ : 95 
0% 0% 8B : E] 09 3$ BBC a, @FLAGS, 4$ : 3 
§ BBCC 3. EXESGL_FLAGS, 4$ : 
01 b0 00 4$ MOVL #1. RO : 08 
4 0003A RET : 


; Routine Size: 59 bytes, Routine Base: S$CODES + 006D 


i 


1” 1b-5e -1 4 AX-11 Bliss-32 v4.0-7 P 11 
yee 005 ms Pa eM ht the Sha ra tae ore om | 
; x 1 SL ORAL ROUTINE set$login : NOVALUE = 
a). 1 BEGIN 
yl ig gi 
3 1 13 ; This routine sets the number of interactive logins permitted. 

; 1g i Inputs: 

; § : None. The CLI is interrogated for the number. 

: 324 1 i Outputs: 

3 5 ! vn None. 

+4 § ' 

; 328 ine 

3 9 
; LOCAL 
3 1 status, ' General status return 

5 ¢ number, ! Number of users 

; argist” : VECTORC2 ' Argument List for SCMKRNL call 

; ¢ desc dest Gcktdce$e _s_bin); ! Descriptor to get number 

: ' 
; ; If the user doesn't have OPER, don't allow the operation. 
; 9 if NOT .ctl$ rocpriv(prv$v_oper] 

3 ? THEN SIGNAL "eiobisss noopers;” ’ 
. ' 

; § Get the number of users. 
: 5 Sinit dyndesc (desc) ! Make the descriptor dynamic 

; 6 IF “cl Tépresent (AASCiD * INTERACTIVE") 

; t cLiSget_value(ZASC1D ‘INTERACTIVE’, ! Get the number | 
3 esc); 
3 50 
3; 351 

3 26 ' 

3 , : If the number is non-zero, go set it. 

; 3 If .desc(dsc$w_length] NEQ 0 | 
: 328 THEN BEGIN 

; 28 4 IF NOT (status = LibScvt_dtb(.desc(dsc$w_length] 

: 35 4 Sdescldsc$a~ _pointer), 

3 & r)) 

3 1 3 THEN 

3 § 4 BEGIN 

3 4 SIGNAL (set$_ valerr); 

: 6 RETURN; 

3 5 

8 ; arotsttby = = 15 

: ergist 

: 4 NOT (status = “2 "SCiacam cwouttN = setlogknl, 

: 4 ARGLST = arglst)) 

; 3 THEN 

3 4 BEGIN 


4 SIGNAL (.status); 
RETURN; 
oo. 
7 o 
7 ! 
7 ' 
74 ! 
Hae 
8 RETUR 
78 END; 


00 45 56 49 54 43 41 


00 45 56 49 54 43 41 


OC 000000006 
ante 
000000006 


000000006 


000000006 


52 45 54 4E 49 
10€000 


0000000° 
52 45 54 4€ 
10€0008 
000000° 


3 


10 


046 =A 
00000000° + 
00 


7 


AE 


00 00000006 + 


0 
000000006 99 
2 
m i 
0200000 F 
AE 


00000000° O4 
06 =A 
oc AE 

C 


007711EA 


4 


»PSECT 
0034 P.AAH: .ASCII 
0040 P.AAG: .LONG 
0 ADDRESS P 
0048 f. or ASCII 
0054 P.AAL: 
0058 


DI & & & 
OWYVTVIOM® & 


aS 


tk 


Ss 


ooooo 


— 


~ 
~_ 


-Sep- 
=Sep- 


~ 
wn 


Ww 
bod 


1986 92:6 


LOW (gets. intset, 2, .sys$gw_ijoblim, .sys$gw_ijobcnt); 


-PSECT 
ENTRY 
UBL 


36 Yared Blis $8539 v4. 
CLIUTL.SRCJSETMISC 


tye. get this far, then use SIGNAL to output the current interactive 


SPLITS,NOWRT ,NOEXE,2 
\ WTF RACTIVEN<O> 
1 poe cm 


\INTERACTIVE\<O> 


«LON 
- ADDR RESS P.AAJ 


SCODES ,NOWRT ,2 
attty tye Saye R2,R3 


$ 
i sfitsco.p PROCPRIV+2, 1$ 


AAG 

vi, CLISPRESENT 

RO 

Desc 

P.AAI 

#2, CLISGET_VALUE 
esc 


#1, ARGLST 
NUMBER, ARGLST+4 
ARGLST 


ihe erry 
#2, SYSSCMKRNL 


742 
32; 


; Routine Size: 


172 bytes, 


63 
omen Hf 


Routine Base: 


SCODES + O0A8 


igs 


1§-ep-1964 Ha Ceti Ta Cap iact eee 


Pe Mati 
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PUSH #SETS_INTSET 
cert #4, LIBSSIGNAL 


oO 
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NE setlogknl (number) = 


we 
ae 


This routine is called in kernel mode to set the number of interactive 
! processes. 


: s $i 

; 3 ! Inputs: 

: 37 : NUMBER - address of the Limit to set. 

; 395 i Outputs: 

; 4] : None. The interactive job count Limit is set. 

; 39 9 ine 

: 999 38 

; rts 94 | 

; 601 95 ! Set the job Limit. 

3 ret 4] : 

; 40 9 sys$gw_ijoblim = .number; 

; 404 i 

; 405 : 

3 rts 00 ! If the Limit is non-zero, turn on interactive jobs. This is done by 

3 ret 3 : clearing the high bit of the job controller mailbox status word. 

3 409 i if .number — 0 ! it at least one allowed to login, 
: $19 38 THEN sys$gl_jobctlmbCucb$v_tt_nologins] = 0; ! enable interactive prompts. 
; 41 RETURN 1; 

3 a1 0 END; 


0000 00000 SETLOGKNL: 
«WORD Save nothin 


000000006 00 04 aC BO 00002 MOVW § NUMBER, SYS$GW_IJOBLIM 
at ar a 

000000006 90 80 8F 8A O000F BICB2 #128, SYSSGL_JOBCTLMB+105 
1 DO 00017 1$: MOVL #1, RO 


04 OOO1A RET 
; Routine Size: 27 bytes, Routine Base: S$CODES + 0154 


rane Ie 
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5, At ROUTINE set$rms_default : NOVALUE = 
ecm 


a4 
ge 


| 

' This cqut ine implements the SET RMS_DEFAULT command. The values and 
! qualifiers are collected and checked, then a kernel call is made to 

: actually set the parameters. In order to change RMS defaults for the 
: system, the process must have CMKRNL privilege. 


i Inputs: 
; None. The CLI is interrogated. 


i Outputs: | 
: None. The RMS defaults are changed. 


LOCAL 


wnoobs 


ROWE B RWWA B BUR & BUI FARO RORUPURUURURURURURURURURURURURURUNUND 
— ee et ee et et ee ee 
ou 
oc 
oe 
fakad 
rc 
w 
ae 
g 
o 
. 


—> bk te 


' General status return 
' Block count 

! Buffer count | 
! Network Block count 
} pretog level 

! Extend quantity 

' General descriptor 

! Argument List for CMKRNL call 
! Flags longword 


ffer_count, 
net block count, 
prolog, 
extend, 
desc : TVECTORES $c_s_bin], 


arglst : 6], 
4] INITIAL(O); 


WN 9 DONOUNE WN" COOONOUS 


VECTOR 
flags : SBBLOCK 
' 
H First, get the qualifiers and quantities. 
Sinit_dyndesc (desc); 


Rae RNIN 


! Make the descriptor dynamic 
i] 
: Get the block count. If there, convert it to a number. 


if (tlagsCset$v_block! = cliSpresent(ZASCID "BLOCK_COUNT')) 
IF _cliSget_value(ZASCID "BLOCK_COUNT', desc) 


ae 

23 
FRLRRLLET 
PPA BBE EEE EE 


| 

BEGIN 
IF NOT (status = iteSeut sth< doce decdu_longch) 

.descldsc$a pointer ‘ | 

block_count) 

THEN 


ae 
z 


AL (set$_valerr); 


k. count GIR 127 ! Check for in range 
count LSS 0 


mer 
=OC 
— 
z 
2 


— 
~ 
comauvw 


=~ 
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wm 
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Mm Soe 


ao oo 
— OAae 
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L(set$_valerr); 


Be Se Se Se Se Se Se Se Se Se Ge Se Ge Ge Ge Se Ge Ge Ge Ge Fe Ge Fe Se Se Se Ge Fe Se Ge Ge Se Ge Ge Ge Ge Ge Ge Se Ge Se Ge Se Ge Ge Ge Ge Se Ge Ge Ge Ge Se Ge Ge Ge ee 
St ee lt “oe 5 ak ek ek et ek et et et ere 
Ue we -o Vewn— NOUS WN—OWODNOWN 


“mauvw 
Ss 


N11 
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She b08 12-88 Het 99:4 CLIUTL.SRC Semis 05536 1 we Ph 
tig 5 
$i? Get the network block count. If there, convert it to a number. 
$f? i v4 flopelsetSy, netblk] = cliSpresent(ZASCID ‘NETWORK_BLOCK_COUNT')) 
<7 ys i value(ZASCID "NETWORK_BLOCK_COUNT’, desc) 
4 
ret f Chor (status = LibScvt =Stht .doechdecdu. Length] 
4 dsc$a “pointer, 
. net_block_count)) 
4 BEGIN 
485 51 5NAL (sets _valerr); 
cB AL URN; 
4 IF .net “plock_ count GTR 127 ' Check for i 
$33 OR .net_block_count LSS 0 ee ee 
491 BEGIN 
rh eee Coets_velerr)s 
49 RETURN; 
494 
ov? 
39 
499 


ir (tlegelsetSu_ buffer) = cli$present(ZASCID ‘BUFFER_COUNT')) 
"Hf cliSget. value(ZASCID "BUFFER_COUNT’, desc) 


VIA 


Rororonororononeny 
BNONRW SOMONE WH OSSIRA PAULO 


BEGIN 

IF NOT (status = LibScvt_dtb(. “dese ascse: Length] 
desc(dsc$a_pointerJ, 
buf fer_count 

THEN 


o 
ra 
z 


GNAL (set$_ valerr); 
TURN; 


jer. count GIR 127 ! Check for in range 
fer_count LSS -127 
I 


Duvrw 
mem 


om 
S 


3. 
oo 


GNAL (set$_ valerr); 


. 
mDauw 


i Get the prologue level. If there, convert to a number. 
if (tlegslset$v_ prolog) = cli$present(ZASCID ‘PROLOGUE')) 
mr of! "Beet. value(ZASCID *PROLOGUE’, desc) 


Se Se Se Se Se Se Se Se Se Ge Se Ge Se Se Ge Se Se Se Ge Se Se Se Se Se Ss Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Ge Se Se Ge Ge Se Se Ge G+ Ge Ge Ge Se Ge 
ae 
© 
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| 

4 

4 

4 
END; 
END; 

' 

Get the buffer count. If there, convert to a number. 

4 

4 

4 

3 

4 

& 

| 

4 
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14-Sep-1984 CLIUTL.SRC SETMIS C.832;1 (8) 
3 3 BEGIN 
; 6 IF NOT (status = LibScvt_dtb(. Gove dsc$w_length] 

3 4 desc dscéa_ _pointerJ, 

3 ¢ $ prolog)) 

3 THEN 

3 4 BEGIN 

3 5 4 52 SNA pseets, valerr); 

: 389 § ENDS 

; 3 4 IF NOT (. wehie EQL 0 OR ! Check for valid prolog Level 

3 in 4 -prolog Bot ¢, OR 

; -prolo 
> 94 3 : THEN . ° 
; 54 5 4 BEGIN 

; 54 5 4 phat (sets. valerr); 

; 44 5 4 RETUR 

; 565 ; END; 

3 «(36 54 
; 548 54 ! | 
; 4 3 } Get the extend quantity. If there, convert it to a number. | 
; 2) 034 IF (flagsCset$v_extend] = cli$present(ZASCID ‘EXTEND_QUANTITY')) 
3 33 Bee IF cli$get_value(ZASCID “EXTEND_QUANTITY’, desc) 
. 54 54 THEN 
FY 55 054 BEGIN 
s 330 0549 4 IF NOT (status = LibScvt_dtb(. sdeselaseta- Length] 
3 S37 0550 4 desc(dsc$a “pointers, 
; 558 B22 4 extend 
; 559 05 3 
: 560 0553 4 BEGIN 
; 361 0554 4 SIGNAL (set$_valerr); 
; $6 0555 4 RETURN; 
3 8 055 END; 
; 564 055 IF extend GTR 65535 ! Check for in range 
; 565 055 OR .extend LSS 0 
; 566 055 THEN 
: 67 B20 4 BEGIN 
; 568 561 4 SIGNAL (set$_valerr); 
3 44 0562 4 RETURN; 
3 0 gee END; 
3; «571 564 END; 
3 ST 65 
3 Of $6 ! 
3 22 : Now to collect all the qualifiers 
: A} 569 flagsCset$v ohesh] = oft /Fpresenc Coasele "HASH'); 
3; 57 570 flags(set$v_ ind x) st present(ZASCID 'INDEXED'); 
s 378 571 flags oti BAtt = cl Spresent (785610 *RELATIVE"); 
; 579 276 flags(set = clidpresent(ZASCID ‘'DISK'); 
; 80 57 flags(set$v~ “tape = cli$present(ZASCID "MAGTAPE'); 
: 581 574 2 flags(set$v-unit) = cli$present(ZASCID "UNIT RECORD’); 
3 ; sre flags(set$v_ “eetead = cliS$present(ZASCID SYSTEM’); 
; 57 
; 585 578 ! If /SEQUENTIAL was specified, then turn it on for all sequential 


sf 
Se 


N flagsl(set$v_seq] = flags 


SESSLE 


= flags 
= {logs 
= 1; 


Oo 
wr 


! specified. Do that manually. 


' 
1 
' 
; 
IF NOT (.flagsCset$v_tape] OR 
fl set$v_disk] OR 
setev.ynit OR 
-flagslset$v_in 
-{ tags set$v_relJ) 
THEN flags(set$v_disk) = flagsts 
= {logs s 
= 1; 


eee SSSSSS SSS S35 


! Otherwise, reject the request. 
if . flags(set$v_system] 
HEN 


BEGIN 
SIGNAL (ss$_nocmkrnl); 
RETURN; 


st 


MIPoPorony 


MEW —OVOONOUS WO 


do what is requested. 
arglst 6; 
orsist ° flags; 
argist § -block_count; 
argist - buf fer_count; 

4 -prolog; 
argist(5 -extend; 
argist(6) = .net_block count; 
IF NOT (status ="SCMKRAL(ROUTIN 

ARGLST 


THEN SIGNAL(.status); 
RETURN; 
END; 


SSSoeNo 


argist 


od 


SUNS 
vo 
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ooo wOo0o0o0o —~ 
MFWN—OO0OM® ww 
=PINIMIAIIPININININPIPIPININIPINININIG ES & BANG IPIPPININININPIPI WAI NI IUPIPUPUPIPUIPIPOPIPUPPD 
ee 
~ 
- 
oo 
oo 
“ow 


AAAPAAAAAAAAAAAAAAAAAAAAAAAAAH 
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et stv 


16-5e0-19 4 
14-Sep-1984 
H devices, ie. disk, magtape, and unit_record. 

AD | ent(ZASCID 'S tested ie 


setsv-tape) 
set$v_unit 


i The SET RMS command defaults to /MAGTAPE/DISK/UNIT if no qualifiers are 


etgyrunied 


i 1 /SYSTEM was specified, check that the user has CMKRNL privilege. 


EGIN 
coo -ctl$gq_procpriv(prv$v_cmkrnl] 


i Build the argument List and call the kernel mode routine that will actually 


setrmsknl, 
arglst)) 


! If /SEQUENTIAL, 
! turn them all on 


! If nothing turned on, 


' turn on disk, tape, and 
! unit record 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


at 
yOu 005 aes rae oat tee tt a rae oe 
00 54 4E 5S GF 63 SF 48 43 GF 56 P-AAL: See! NPeResfoure 
48 4s P.AAN: “ASCH 19eRessfounrve™ 


D07C P.AAM: 
LOR SS P 
P.AAP: .ASCI \NETUORK BLOCK, COUNT\<0> 


™Nm 
uw 
vw 
. 

> 
= 
[ a 


Sse 


00 54 4E 55 4F 43 SF 


wen 
= 


43 SF 4B 43 GF 4C 42 SF 4B 52 4F 7 be 


4 
00 54 
019 0013, 00098 P.AAO: LONG 17694739 
* 9009 “ADDRESS P 
43 SF 4B 43 GF 4C 42 SF 4B 52 4F 57 $4 42 GE DOOAD P.AAR: -ASCII \NéTWORK _BLOCK_COUNT\<O> 
fis  2O0B4 P.AAG: LONG. 17694739 
54 4E 55 GF 43 SF 52 45 46 “or 006 Savi} “LONG. «17096732 COUNT\ 
0 $0009" CC "ADDRESS 
54 4€ 55 4F 43 SF 52 45 46 46 1 006 50 Set “ASCII WE COUNT\ 
00 G00 + Soe | AY? “ADDRESS 
45 55 47 GF 4C GF. 52, 30 QO0E4 P.aax: ASCII aaa 
80 00 9* 00F6 “| GADDRESS P.AA 
45 55 47 GF 4C 4F OOF4 P.AAZ: ASCII rPAOL QgUE\ 
0100008, QODFC P.AAY: -LONG 
0990009" 99 -ADDRESS P.AAZ 
59 54 49 S54 SE 41 SS 51 SF 44 SE 45 56 43 O0104 P.ABB: -ASCII  \EXTEND_QUANTITY\<0> 
QIOEQOOF | 00114 P.ABA: LONG 17694735 
0990000" 00118 . , 
59 S54 49 54 GE 41 55 51 SF 44 4E 45 56 45 QO1IC P.ABD: | -ASCIT  \EXTEND_QUANTITY\<O> 
QLOEQOOF, OOIGC P.ABC: LONG 17694735 
00060009" 001 -ADDRESS P. ABD 
48 53.41 48 00134 P.ABF: <ASCII \HASH\ 
01060004, 00138 P sLONG 17694724 
000000" 001 ADDRESS P.ABF 
00 44 45 58 45 44 GE 49 149 B-ABH: .ASCII  \INDEXED\<O> 
boop00 ‘OO14e ADDR H 
45 56 49 54 41 4 4 1 6 P.ABJ: ASCII Roe 
£0958 , 20128 PLABL: LONG 
48 53-49 4% 0160 P.ABL: “ASCII WED 
010 164 PLABK: <LONG. 94724 
000 * 00168 -ADDRE 
00 45 50 41 54 47, 41, 4D OOIGE P.ABN “ASCH “Hisligg cm 
80000000" 0178 -ADDRESS P 
00 44 52 4F 43 45 52 SF 56 onge W7C P.ABP: | ASCII NUIT RECORD \<O> 
000" 0018¢ AD . 
4D 45 54 53 P.ABR: ASCII \SYSTEM\<0><0> 
ree : 00 PIABG: “LONG. 1P084020 
0 6 , “ADDRESS P. ABR 
00 00 4¢ 41 49 54 4E 45 55 51 4 DOIAG P.ABT: ASCII \SEQUENTIAL\<0><0> 
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- LONG 
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CLIUTL.SRCISETMISC.832; 1 


17694730 


«ADDRESS P.ABT 


SCODES ,NOWRT,2 

serge pF DEFAULT, Save R2,R3,R4,R5,R6 
CLISGET= vA UE 

CLISPRESENT, i” 

P. AA 

#56 Kept 


#80091936, DESC 
DESC+4 


“i, Cl ISPRESENT 
é FLAGS 

RO, 1 

DESC 


P.AAM 
3, CLISGET_VALUE 
R e 1$ 


(SP) 
3° “asset _pTB 
RO STAT $ 
STATU 
BLOCK Stounr, #127 
BLOCK COUNT 
P.AAO 
#i, CLISPRESENT 
RO, #6, #1, FLAGS#1 
RO, 2$ 
DESC 
P AAQ 
‘ » CLISGET_VALUE 
NEf_BLOCK_COUNT 
DEST+4 
oF SC, =(SP) 
: LIBScVT _DTB 
RO 


statu 
Aru cunt, #127 


ner. BLOCK _COUNT 


P.AAS 
i, ¢ ISPRESENT 
RO, #4, #1, FLAGS 

R 
n0; 6 


0408 


Son198e 00:45: 


“vu 


4 AX-11 Bliss-32 
1 CLIUTL.SRCJSET 


som 


ISS 


$¢.832 


4.0-74 
nistves2s1 


CMPL RO a3 


sooo 


OOAC 
01 5 


PR 
=v 
-2>C 
orn 
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P.ABA 
CALLS #i, CLISPRESENT 
V =RO. #5, #1, FLAGS+1 
RO, 118 


1 5 
1 1 
74 Ad OF 7 PUSHAB P.AAU 
$5 : Fe A CALLS 3, CL ISGET_VALUE 
LBC —séRO, 6 
AE 9F 000C PUSHAB BUFFER_COUNT 
AE DD 000¢ PUSHL DESC+4 
? AE 3C 000C MOVZWL DESC, -(SP) 
Bob BaRES gait Rte or 
4 E 3$: BLBC = STATUS, 
0000007F &F 08 ar Di Ds - cHPL BUFFER_COUNT, #127 
FFFFFF81 © 8F 08 AE D4 : w cMPL BUFFER COUNT, #-127 
0084 C3 9F OO0E7 6S: PUSHAB P.AAW 
4 1 FB 000EB CALLS #1, CLISPRESENT 
01 5 2 FO QOOEE INSV RO. #5, #1, FLAGS 
0 3 OOF4 BLAC ~=s._—«aRO,.«&O988 
30 AE OOF OOF7 PUSHAB DESC 
0094 9F OOOFA PUSHAB P.AAY 
$5 FB OOFE CALLS “2, CLISGET_VALUE 
. : 1 BLBC 9$ 
AE OF PUSHAB PROLOG 
AE DD 00107 PUSHL $C +4 
7E Ae C 0010A MOVZWL DESC, - 
66 FB 0010E CALLS #3, LIB$CVT_DTB 
52 : 011 MOVL RO. STA 
af 99 14 7$ BLBC STATUS, 10$ 
50 Oc AE 0 1 MOVL PROLOG. RO 
OA 1 BEQL 
02 0 1 
5 
0 
F 
C3 
o1 
0 
30 
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: 
0 
0 BLBC 
30 0 PUSHAB DESC 
0004 0 PUSHAB P.ABC 
$5 02 0 CALLS "2, CLISGET_VALUE 
B 4 BLBC =«._«aRO,_«*118 
10 AE 4 PUSHAB EXTEND 
; AE po 4 PUSHL DESC +4 
7E AE 3¢C ‘ 4 MOVZWL DESC. -(SP) 
66 f 4 CALLS a3, C18scvT_oTB 
OF E BLBC STATUS, 10$ 
L XTEND, 
OOOOFFFF 8F 10 A pi CPL TEND, #65535 
10 A TSTL XTEND 
Micah A 
007711EA  8F DD 00166 10$:  PUSHL #7803370 
0000 31 0016C BRW 15$ 
00D0 F of 11$: | PUSHAB P.ABE 
64 FB 3 CALLS #1, CLISPRESENT 
01 4 9 F 76 INSV 0; #4, #1, FLAGS#1 
00E0 C3 OF 0017C PUSHAB P.ABG 
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01 
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BLOCK’ COUNT, ARGLST+ 
BUFFER” COUNT MAakSstet2 
EXTEND, ARGLST+ 
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STATUS, Ves 
STATU 

#1, LIBSSIGNAL 
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NE setrmsknl (flags, block count, buffer_count, prolog, extend, net_block_count) = 


a4 
Se 


sae 


This is the kernel mode routine that actually sets the RMS defaults 


Inputs: 
FLAGS = address of flags longword 
BLOCK_COUNT = address of block count 
BUFFER_COUNT = address of buffer count 
PROLOG” - address of prologue level 
EXTEND = address of extend quantity 
NET_BLOCK_COUNT = address o netuork block count 


Outputs: 
None. The RMS defaults are reset accordingly. 


MAP flags : REF SBBLOCK; 
, 
See whether the mods are for the system, or simply for this process. 


wr 


Heh eeeteotiu_systen) ! Make system mods 
066 eeGin 
66 Al -flagsCset$v_block] ! /BLOCK_COUNT 
9 sys$gb_dfmbc = .block_count; 
670 Bo6¢ 
671 066 If .flagsCset$v_netblk) ! /NETWORK 
67 0664 TH 
o7? 0665 sys$gb_dfnbc = .net_block_count; 
675 bees If .flagsCset$v_buffer) ! BUFFER_COUNT 
676 0668 THEN 
67 BEGIN 
678 IF .flagsCset$v_disk) ! /DISK 
679 THEN N  bysSeb.af dfmbfsdk = .buffer _count; 
680 flags(sét$v_tape) \ /MAGTAPE 
681 THEN sységb_dfabtsnt = .buffer_count; 
ose IF .flagslset$v_unit) ! /UNIT_RECORD 
THEN sys$gb_ dinbfsur = .buffer -count; 
I lags(sét$v_hash] / 
5 THEN sys$gb *dfmBfhsh = .buffer count; 
O56 - flags setev, index INDEXED 
nen N izsSeb.0f diab tide = .buffer _count; 
flags(sets 1 /RELATIVE 
p44 7 N sys$gb_ Site teet = .buffer_count; 
691 r. -flags(set$v Prolog) ' /PROLOG 
69 en tysépb rms brolog j -prolog; 
sate. extend) ! /EXTEND 


a EN ont rmséxtend = .extend; 
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3 6 ; not /SYSTEM, then it must be for the process. 

3 ! Make process mods 

; f ¢ teh - flags(set$v_block) ! /BLOCK_ COUNT 

rae Alt b. dfmbc = sblock. count; 

; f 5 i". Lags(Set$v_netblk ! /NETWORK 

: 7 "pics _dfnbc = net. _block count; 

: f ae logs Set$v_buffer ! /BUFFER_COUNT 

: 710 702 4 "BEGIN 
: 711 7 4 IF .flags(set$v_disk] ! /DISK 
3 a 7 4 THEN Bhs b_dfmbfsdk = .buffer count; 
; 71 705 4 as sét$v_tape) i /MAGTAPE | 
: 714 706 4 THEN + o$gb_dfmBfsmt_= .buffer_count 

3; 715 7 4 If .flagslset$v_unit) : 7UNIT RECORD 

3 rig 708 4 THEN pic b_dfmbfsur = .buffer =count ; 

: 71 709 4 IF .flagslset$v_hash) 1 /HASHED 

3 ie 710 4 THEN picsgd.diabthsh = .buffer -count 

3; 7 711 4 If .flagslset$v_index] / INDEXED 

: 720 7 § 4 THEN piosad.df | = pent A 

: 721 713 4 F .flagstset$v_r ' /RELATIVE 

; y ¢ of : 4 HEN pio$gb_ dtnbfrel = .buffer_count; 

3 724 7 6 i «tags tsetsy _prolog) ! /PROLOG 

: 725 7 a pe Sab. grasbrolog j -prolog; 

, £ $ 7 8 Ine 2 09s set$v_extend) ! /EXTEND 
as. 7 the N pioSgw_rmsextend = .extend; 
: 728 720 ; 
: , 3 OF ! A ge 1; 

: 731 7 : 


0000 00000 SETRMSKNL: 


.WOR Save nothing : 06 
04 MOVL GS : 0656 
BBC #2, (RO), 10$ : 
BBC #3. (RO). 1 > 0659 
08 MOVB BLOCK COUNT, SYS$GB_DFMBC > 0661 
BBC #i4, TRO), > 066 
18 MOVB NET.BLOCK. COUNT, SYS$GB_DFNBC : 066 
BBC a, (R d.” $ ; 66 
BBC #6. 3; 0670 
0c MOVB Burren Count, SYS$GB_DFMBF SDK : 0671 
TSTB : 0672 | 
BGEQ f° F | 
‘ nove UEFER, QUNT., SYS$GB_DFMBF SMT > 0673 | 
BLB > 0674 | 
C MOVB aur ek R COUNT SYS$GB_DFMBF SUR > 0675 
BBC > 0676 
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000000006 oc ac MOVE BUFFER SOUNT SYS$GB_DFMBFHSH 
08 08 68: BBC wii, (RO), 7$ 

00000000¢ oc aC MOVB Bur FER coUNT SYS$GB_DFMBF IDX 
08 OA 62 7%: BBC #10, (RO), as 

000000006 0c At Sf mOVB FFER_COUNT, SYSSGB_DFMBFREL 
08 0 8$ BBC #5, (RO) 

000000006 10 AC MOVB PROLOG §¥S$GB_RMSPROLOG 
7A OD € 98 BBC a ‘ 

000000006 4 AC 0 Ov XTEND, SYSSGW_RMSEXTEND 
08 6 1 10$: BBC #3, (RO), 118 

000000006 08 ac MOVB BLOCK COUNT, P10$GB_DFMBC 
08 OE 11$: BBC wig, TRO), 12 

000000006 18 «AC 9 MOVB NET “BL cK T, PIOSGB_DFNBC 
oe g Be Ei Seta | Be SBe inane Ss 

000000006 oc A MOVE BUFFER_COUNT, P10$GB_DFMBF SDK 

6 13$:  TSTB (RO) 
1 B BGEQ 3=s«14$ 
000000006 00 C aC 9 MOVB FFER_ QUNT. P10$GB_DFMBF SMT 
8 1 A 14$ BLBC (RO) 

000000006 C ac MOVB BUFFER COUNT P10$GB_DFMBF SUR 
08 60 0¢ 3 15$ BBC #i2, (RO), 16 

000000006 oc ac MOVB Bur FER OUNT, P10$GB_DFMBFHSH 
08 0 08 3 D4 16$: BBC wii, (RO), 178 

000000006 oc AC 0D8 MOVE . BUFFER COUNT P10$GB_DFMBF IDX 
08 6 OA fi 00E0 17$: BBC #10, (RO), 18$ 

000000006 0c AC 0 MOVB BUFFER COUNT, PIOSGB_DFMBFREL 
08 60 0 fi OOEC 18$: BBC #5, (RO), 19 

000000006 00 10 ac 90 MOVB PROLOG P10$GB_RMSPROLOG 
08 0 OD €1 19$: BBC #13, (RO) 

000000006 16 AC BO MOVW EXTEND, PIOSGW_RMSEXTEND 

0 01 v0 04 208: MOVL #1, RO 


3; Routine Size: 264 bytes, Routine Base: SCODES + 0386 


6 
0 
0 
0 
0 
i] 
0 
0 
0 
0 
0 
0 
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; 7 £. Sent ROUTINE setSworking_set : NOVALUE = 

3 , GIN 
3 5 ;ee 
; 7 i this rout ine implements the SET WORKING _SSET command. The values and 
3 7 ' qualifiers are collected and checked, then a kernel call is made to i 
; re r : actually set the parameters. 
: 2% i Inputs: 
; te § ie None. The CLI is interrogated. 
: rah 735 2 ' Outputs: | 
; eet i H None. The working set defaults are changed. 
; ree 7 ine | 
3 7% 7 
; 74 74 LOCAL i 
: 750 74 pyetus. ' Status return i 
3; 7 74 Limit, ! Working set Limit 
. 7 ¢ 74 quota, ! Working set quota i 
-®. 7446 pobes 1 ! Working set extent i 
; 754 745 specified_limit, i And the reat values that | 
; 755 74 specified quota, ! were specified by the 
ie, $ 74 specified_extent, ! user before juggling i 
2. 74 min_wset ! Minimum guaranteed working set i 
; 38 74 auth_Limit, i Authorized Limit | 
i. 750 auth_extent, ! Authorized extent i 
; 760 751 flags : SBBLOCKC4) INITIAL(O), ! Flags longword ‘ 
; 761 7 § desc : seeL oer eegsc_s.blnd. ! General descriptor 
: re i z arglist : vECTOR(5); ! Argument List for kernel call i 
i 764 755 2 BIND | 
; oe? : $ phd = .ctl$gl_phd : SBBLOCK; ! Point to this process's PHD | : 
; 76 7 ' | 
; 768 736 : Initialize the descriptor, and calculate some quantities that are handy to i 
3; 769 760 ! have. These are the authorized working set Limit, the minimum working set, ‘ 
3 a Ores and the authorized extend Limit. | i 
: 77 68 Sinit gyndesc (dese); ! Make the descriptor dynamic i 
; 77 764 auth_Timit = .phd hd$w_wsauth) ~ padi onde wslist] + 1; i 
3 77% 765 auth_extent = spn hd$u_wsauthext] - _ phd$w_wslist] + 1; F 
3 075 ? min_uset = .phdiphdSw_wsdyn] - .phd(phdSw_wslist] + 2*.phd(phd$w_wsfluid] + 3; | 
: 77 res ' 
3 ore z > : Get the /CNOJADJUST and /CNOJLOG flags. 
: 780 771 i If the /ADJUST qualifier is gresent explicitly, then set that flag, and 
; . 1 ve ! in the process note whether it was /ADJUST or /NOADJUST. 
of. 5 774 2 status = flags(set$v adjust ' Get the /ADJ or /NOADJ 
a 775 " cliSpresentt CID "ADJUST"); i but only use it if 
: , 5 dA flags(set$v_expadjJ] = (.status NEQ cli$_absent);! explicitly specified. 
: 7 77 status = tlags(set$v log) ' Same for /LOG 
2 77 s gli presenttZASCID LOG"); i 
3; 789 7 flags(set$v_explog] = (.status NEQ cli$_absent); i 
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If a new Limit is given, then check that the value is valid, and 
then apply some common sense bounds checking. If no new Limit was set, 
compute the current one. 


if (tlegsCsetSv_ Limit] = cli$get_value(ZASCID ‘LIMIT’, desc)) 


ey meme meee 


"BEG IN ! Convert from ASCII to number 
IF NOT LibScvt_dtb(. geet coche length) 

des gsc a spointerd. 

specified lim 
THEN ! If an error, signal it 


(set$S_invquaval, 2, desc, ZASCID ‘LIMIT'); 


zm 

~ 
32 
. 


value is good, check 
‘t is within reasonable 


er than the minimum 


: of 

i tha 
AL t i bou 

i No low 

i No gher than the authorized 


= MA t stn _wset, cp tinitse Limit);! 


the 
t 
nds. 
lo 
t = MIN(.temp, .auth hi 


—_ 
2 
ee 


5325 


END 
IF no new Limit was given, compute the current one. 


ELSE Limit = specified Limit 
= .phd(phd$u_ by - .phd(phd$w_wslist] + 1; 
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i If a new value given, validate it and make some common sense 
range checks 


if (flagsCsetsv_ quota) = cli$get_value(ZASCID ‘QUOTA’, desc)) 


COOoCoooco 
(G9 Cd Cd Gd Cd Gd Cd CO. CD CD Co 
ad ed ed ad ed ed ed 


Oooo 


BEGIN ! Convert from ASCII to number 
IF NOT LibScvt_dtb(. -Goschdectu. Length] 
-descldsc$a =pointerd, 
specified_quota) 
! If an error, signal it 


(set$_invquaval, 2, desc, ZASCID ‘QUOTA'); 


SOOoooooco 


! Otherwise make some 
BEGIN ' bounds checks 


WN 29 OONO NEW OC OONOUE WIN —O 


emp = MA twin _wset, sree itise- quota); 7 No squer than the minimum 
quote = MIN(.temp, .auth_Limit) i No higher than the authorized 


: END 
i If no new quota given, compute the current one. 


w 


Sooooooooo 
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a 
Se 


' 
ELSE quota = specified_quota 
= SOT dLphdse wequotal - .phd(phd$w_wslist] + 1; 


‘ 
: If a new extent is given, validate and make the usual checks. 


if (tlags(setSu_extentd = cli$get_value(ZASCID ‘EXTENT’, desc)) 
! Convert from ASCII to a number 


‘ 
BEGIN 
1 IF NOT LibSevt_dtbt. desc dectu. length) 
desc dsc$a-pointers, 

2 specified_extent) 

37 wae ncen ! If an error, signal it. 
635 SIGNAL (set$_invquaval, 2, desc, %ASCID ‘EXTENT'); 

28 RETURN; 
$2 END 

38 ELSE 
85 BEGIN ! Make some bounds checks 


LESTE SSS ET SOL ASOLO 


3 
33 


min_wset, epee ti ted extent);! No Lower than the minimum, 
(,temp, .auth_extent); ! No higher than the authorized 


ons 


END 
If no new extent given, compute the current one. 


ELSE extent = specified_extent 
= .phd(phd$w_wsextent] - .phd([phd$w_wslist] + 1; 


coco 

~“ 

= 
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me 
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Se 
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Now for some further consistency checking. The general rule is that 
LIMIT < QUOTA < EXTENT 


Because LIMIT is what the working set is at image rundown, 

QUOTA is what a process is guaranteed it can grow to, and 

EXTENT is what it might grow to if there's extra memory around. 
In addition, the relative importance of the qualifiers is that EXTENT is 
relatively more important than QUOTA, which is more important than LIMIT. 
These are the general rules that govern the mess that follows. 


If all the EXTENT, QUOTA, and LiAty were changed, or the EXTENT and QUOTA, 
or Just the EXTENT, the EXTENT is taken as the most important, and the 
other two values get adjusted accordingly. 


F (.flags{set$v_extent] AND af Logst potSy quota) 


OOooooococoo 
(Go Cd Cd Cd Co Cd CD CD 
SANS 


OOO 
Wn 
Coco 
CoCo 


02. ¢9. 0000 
3s 
3 oo a 
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44 i set$v_extent] AND NOT lags(set$v_quota] OR .flags(set$v_limit])) 
91 BEGIN 

901 36 pyote = MIN(.extent, pquotel: ! QUOTA < EXTENT 

308 4, rane = MIN(.quota, Limit); ! and LIMIT < QUOTA 


SETH -Sep-1 :43:54 YAX-11 BLis V4.0-74 P | 
you~ 000 1$-$e0-198 99:4 711 erruTE SRETSETMY SC. ages 1 a0 5), 
° 
; 5 f LIMIT and QUOTA were set only, or just QUOTA, then reset EXTENT and 

: uggle with the LIMIT. | 
; bse IF .flagsCset$v_quota) | 
; 31 BEGIN | 
; 9 ¢4 xtent = MAX(. quota, rgztened: ! QUOTA < EXTENT 

; 318 Linit = MIN(. quota. elimit); ! and LIMIT < QUOTA | 
> 914 ; 
; Bi 9 : If LIMIT and EXTENT only, then reset LIMIT, then juggle QUOTA. | 
3 $i 708 iF 4 IF (.flagsCsetSv_limit] AND .flags(set$v_extent)) | 
; 920 : ; Limit = MIN(.extent, ed +4, ! Set LIMIT < EXTENT | 
+ 921 § quota = MAX(.lLimit, .quota) : LIMIT < QUOTA 
; 4 ; y13 quota = MIN( extent, quota); i QUOTA < EXTENT | 
3 926 5 3: 
; 925 : § i Finally, if only LIMIT was set, make sure that EXTENT is Larger, | 
3 3 $ and that QUOTA is Larger. 

; 928 : $ ELSE IF -flagsCset$v_limit] | 
; 929 920 THEN 

; 930 921 BEGIN | 
; 931 9 ¢ extent = MAX(.Limit, .extent); ' LIMIT < EXTENT 
3; F § 9 pace = MAX(. Limit, -quota); ' LIMIT < QUOTA 

3 i | 
; 935 6 3) | 
; 3 $ 09 , ; Call the kernel-mode routine that actually sets the parameters. 
; 338 929 arglistto = 4; | 
; 939 arglist(1) = .limit; 
; 940 1 orgl ists = .quota; 

; 941 § argtietes = spatenss 

; ot oroliett® = flag 
; 9% P FONOT (status ="SCMKRNL(ROUTIN = setwrkknl, 

3 ace , 5 ARGLST = arglist)) | 
; 946 9 BEGIN | 
; 94 9 3 SIGNAL(. status); 
: 305 34 one | 
Bp oa 8 fae 
; 328 368 i Now for how much to tell the user. If sqnething Was ghanged. and /NOLOG 
; 95 4 ! wasn't spec #1 red. then signal the new values. Also, if /LOG was specified, 
3 928 Re? signal the new values. 
; a] ; IF (.flaqs aqtée riza tog? ue = flogsCeotty, log) j a user specified /LOG 

; 95 3 4 OR (¢ “Spect Timit NEQ Limi sr 8 -% of the values 
; 4 oapecy ie =quota NEQ .quota OR : e jusal 
; 95 50 ; capeetfteg: extent NEQ .extent) AND NOT ! and t ny te: “didn't say /NOLOG 

3 0951 flags(set$v_explog] AND NOT ‘amet aaties log])) 


3 THEN SIGNAL(set$_newlims, 3, 
limit, 

: -quota, 

é -extent); 

58 


oOoOO000o 


RETURN 1; 
END; 
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4 00:43:54 AX-11 Bliss-3 
ef 99:4 :11 CLIUTL.SRCIJSETMISC 


signal an informational 


-PSECT SPLITS,NOWRT,NOEXE,2 


-ASCII \ADJUST\<0><0> 
«LONG 17694726 


DD . 
ASCII N06) <0 
«LONG 17694723 
ADDRESS PF.ABX 
ASCII W108} 1 \s0><0><0> 
LONG 17694725 
ADDRESS P.ABZ 
ASCII Va 18} 1) 20><0><0> 
LONG 17694725 
«ADDRESS P.ACB 
eASCII \QUOTA\<0><0><0> 
LONG 17694725 
ADDRESS P.ACD 
eASCII \QUOTA\<0><0><0> 
LONG 17694725 
ADDRESS P.ACF 
ASCII VEXTENT\ <O><0> 
eLONG 17694726 
ADDRESS P.ACH 
ASCII VSR TENT) <O><0> 
-LONG 17694726 


«ADDRESS P.ACJ 


-PSECT S$CODES,NOWRT,2 


-ENTRY SE TSOAK 1N6_SET. Save R2,R3,R4,R5,R6,R7,R8,-; 0724 


MOVAB LIBSCVf_DTB, R11 
MOVAB CLISGET-VALUE, R10 
MOV P.ABU, RO 

SUBL2 #44, §P 


CLRL FLAGS 
MOVL  CTLSGL_PHD, R6 
MOVL  #34471936, DESC 
CLRL ESC +4 
MOVZWL 8(R6), R7 

MOVZWL QcR6S, RS 

UBL2  R7, R5 

OVAB 1(R5), AUTH_LIMIT 
MOVZWL 20 (RG, R1 

SUBL2 R7, RI 


! 
! 
| 
} 


Os | 
: re 


: 0764 


0765. 


ein 


CE a ee ee ee ee “Heo pris wae) 


$ep-1984 00:43: AX-11 Blis 420- 74 P 1 
=330-188¢ 19:08; ; alt 

) 

65, 

RS), RO 

NPRbD MIN_WSET 

CLI 

rT 

CLISPRESENT 


CLIUTL.SRC Sef tals -832;1 
AUTH_EXTENT 
0766 
77 
SPRESENT wr 
#1, FLAGS 
0776 
ATUS, #CLIS_ABSENT 
1$ 
. #1 
TUS, #CLIS_ABSENT 
1, #1, FLAGS 
#1,” FLAGS 


SETA 1 
yOu 000 : 
5 1 MOVAB 5 3 
. SUBL2 ; : | 
9 74 5 : 
03 Al MOVAW . a : 
000090006 00 : | 
Oc AE 01 | NSV , 5 
STATUS : 
000000006 8F ce : | 
OC AE 01 05 a : INSV it #1, : | 
000000006 00 : | 
OC AE 01 00 INSV 0; & » FLAGS ; 
5 MOVL STATUS : 
000000006 8F ATUS, . = y 
OC AE 01 01 O9E 2$: INSV e ‘ : 
OOA4 PUSHAB : 
6A BOAA CALS. 3 ( iS IT_VALUE ; | 
ser, 3 } 
OC AE 01 02 QOAD INSV ; 
2c B 6$ 3 
0B6 PUSHL SP : 0791 | 
gC 0 PUSHL DESC+4 : 0792 | 
7E C OBB MOVZWL re : 0791 | 
68 0 CALLS t 1asevt _DTB : 
05 0 BLBS F 
2c 0 PUSHAB CA : 0796) 
0 BRB ag : 
OCA 3$: MOVL N_ ; 0802 | 
0 CMPL RO. ee lir ten LIMIT : | 
0 BGEG 4$ : 
0D MOVL SPECIFIED LIMIT, RO : 
005 4$: CMPL RO, AUTH_CIMIT : 0803 | 
008 BLEG }3=s«S$ : 
ODA MOVL AUTH LIMIT, RO : 
DD 5$: MOVL RO, CIMIT : | 
OF BRB 7$ : 0788 
1A 68: MOVZWL 26(R6), R1 : 0810 
0 SUBL2 R7, RI : 
INCL R1 ° | 
MOVL  R1, SPECIFIED_LIMIT : 
MOVL 1. LIMIT ; | 
34 7$: PUSHAB DESC : 0818 
C PUSHAB P.ACC : 
CALLS 3, cl SGET_VALUE : 
Oc AE 01 INSV RO. #3, #1, FLAGS : | 
BLBC RO, 12 ; | 
4 PUSHAB SPECIFIED_QUOTA > 0821. 
C PUSHL  DESC+4 > 0822 | 
C MOVZWL DESC, -(SP) : 0821 | 


.* . © 
Ps 
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Page 32 
=742 185 
yd Obits 32 alse 95742, 
18-Sen-1984 P2idet1 — EeCTUtLosReisetmise case Berd 
tie Piate Dg T_pTB ; 
1 CALLS #3, | 1BSCVT_ ; 0826 
! RHE Be Bid | 932 
4c OA $: BRB SET. RO ; | 
$8 00 00118 98: CRPL Re” SPECIFIED_qUOTA | 
Re 5 oT iF aece a UOTA, RO 7 
04 AE e as otis CMPL RO. AUTHLCINIT bers 
50 06 =A D 3 10$ ones 11g LIMIT, RO S esta 
| 15) 118: OVE mY, wes ; ss 
| RB 1 ; 
R6), R2 ; 
: 8 AS "8: Wace Ree 2 Feel 
52 ~: cs 138 INCL RS SPECIFIED_QUOTA : 0 | 
BBP as, Biba Pats eS 
06 AE 24 Ag +4 014 PUSHAB #2, CLISGET_ VALUE : | 
01 64 i E9 Ole PUSHAB Speci leD_extent ; 0850) 
40 F 001 HL DESC : | 
08 AE PUS » =(SP) : | 
ERB | Bae HE alP om Picea 
7E 03 FB 001 BLBS_ sR ; 
SE P.ACI ; 
¥6 a9 SF goal as Ci a 
35 AE oF 30183 Sarat PUSHL et nase 
SF DD o0189 CALLS #4, LIBSSIGNAL 0861 
wre: Eo one cat IFIED EXTENT | 
000000006 00 OF 00176 14, | RET RS, SPEC | 
08 AE ba 8 00178 mOWL SPECIFIED _EXTENT, R3 ; 0862 | 
p 
53 7 SE bo bores 16s: Cw Rd, AUTH EXTENT | 
50 5 D1 001 BLEQ 1 TENT, RO : 0847 
” 03 8 a8 ove ah ecrree + 0869. 
5 0 0 O18¢ 178: ROVL 
33 ti {i Bie 18$: ROvzuL 2¢(R6) , R6 
A *  SUBL , : | 
3 ~ 7 56 00198 MOVE «RG, SPECIFIED EXTENT : oes, 
$ BO O019A MOVE RO. EXTENT sl 
08 A 38 bo oolge 1: oe at FLAGS, ; : 0889, 
i 63 £0 OoIAe 9 iS FLAGS, $ | 
br Oc AE 02 ET 001 BBS #3. FLAGS, ¢38 ; 0892, 
1F . & fo 189 ms atten? Rb 
1F of A 3 1BA 208 phy RO. QUOTA : 
” 56 1 0018 BLEG 218 
. BB a, BR Rot 
# 6 BB, BO 


13 
SETA ihede -1984 00:43:54 AX-11 Bliss-32 V4.0-742 Pa 3 
ree ts ee teats rik te art Ait Sh prt ph 9 433 
54 50 D1 001¢8 CMP RG, LIMIT : 089 
1D Ri 1¢B BeTR 336 : — 
1— 11 001CD BRB 6s : 
1€ oC A E1 OO1CF 338 BBC #3, FLAGS, 27$ + 0899 
2 DO 00104 238 MOVL QuorA, RO ; 0902 
D1 00107 CMPL = RO, EXTENT F 
1 1DA BGEO & : 
9 DO 001D¢ MOVL EXTENT, RO : 
DO OO1DF 24$:  MOVL RO, EXTENT : 
0 DO OOTE MOVL OTA, RO : 0903. 
4 D} OIE cMPL Limit : 
50 4 8 OIE 358: MOVL LIMIT RO : | 
4 0 DO OO1ED 26$:  MOVL RO. LIMIT : | 
ae 11 OO1F BRB 4$ ; 0899" 
49 OC AE E1 OO1F2 27%: BBC #2, FLAGS, 34$ + 0908. 
23 oC Ar 4S € OO1F BBC #4. FLAGS, 30$ : 
5 3 DO OO1FC MOVL EXTENT, RO : 0911 
54 30 D1 OOTFF CMPL RO, LIMIT : 
: 15 00202 BLEG 46=s-«-28$ F 
50 4 00 00204 MOVL LIMIT, RO ; 
54 50 00 00207 28$ MOVL RO, LIMIT ; 
52 50 D1 0020A CMPL = RO TA + 0912 
0 18 0200 BGEG 4 ©--29 : 
50 52 DO 0020F MOVL QUOTA, RO : 
25 é DO 00 \¢ 298: MOVL RO, QUOTA é 
5 DO 0021 MOVL XTENT, RO + 0913 
52 50 1 00 18 CMPL 0, aud ; 
1D 14 00218 BGTR 3¢$ : 
43 11 00 1D BRB 4 : 
1C 0c AF g E1 O021F 30$: BBC #2, FLAGS, 34$ : 091 
5 4 00 00 4 MOVL LIMIT, RO : 092 
53 50 D1 00207 CMPL RO, EXTENT : 
03 18 00 A BGEG }460s-« 318 : 
50 53 pO 0022C MOVL EXTENT, RO : 
5 50 DO OO22F 31$: MOVL RO, EXTENT : 
50 54 DO 00 2 MOVL LIMIT, RO + 0923 
52 50 D1 00 CMPL RO QUOTA : 
18 0238 BGEG = 3 ; 
23 D O23A ¢ MOVL ah a RO 3 
2 DO 0023p 33$ MOVL RO, ; 
10 AE 04 DO 00240 34$ MOVL #4. ARGLIST ; 9929 
14 AE 4 p 0244 MOVL LIMIT, ARGLIST+4 : 0930 
18 AE 52 7D 0 48 MOVG QUOTA, ARGLIST+8 : 0931 
20 AE OC AE 9E 0024C OVAB FLAGS. ARGLIST+16 : 09 3 
10 AE 9F 00251 PUSHAB ARGLIS : 093 
00000000v EF 9F 00 24 PUSHAB SETWRKKNL ; 
000000006 00 : FB 0025A CALLS #2, SYSSCMKRNL : 
a DO 00261 MOVL R STATY ; 
OA 3 £8 00 64 BLBS STATUS, 35$ ; | 
DD 7 PUSHL  STATU : 0938 
000000006 00 1 FB 69 CALLS #1, LIBSSIGNAL Sun 
04 0c 01 €1 00271 35$: BBC #1, FLAGS, 36$ : 0947. 
1A OC AE €E8 00276 BLBS =‘ FLA ; 
6 D1 7A 36%:  CMPL SPECIFIED_LIMIT, LIMIT + 0948 
C 12 7D BNEQ 7 3 


13 


; : 
1ecSep-t9be $aida:t1 — LeKTUtL osm Sse tmisecasos1 Pa9e 19) 


52 046 AE p1 7 CMPL SPECIFIED_QUOTA, QUOTA 7 0949 
06 BNEQ 7 : 
53 08 AE p CPL PECIFIED. EXTENT, EXTENT : 0950. 
04 0c Af 01 £7 88 37$: BBC "1 ick 38$ : 0951. 
1 OC AE E9 BLBC : 
g¢ BB 00294 38$: § PUSHR Fncns, R3> + 0954. 
DD 36 PUSHL ; MIT + 0953 
3 DD 0029 PUSHL : 0952 
000000006 8F DD 0029A PUSHL agers NEWLIMS : 
000000006 00 5 FB Ag CALLS #5, LIBSSIGNAL 3 
0 A? 39% eT 3 


; Routine Size: 680 bytes, Routine Base: SCODES + O4BE 


13 
1E$eor19Ge QB:45:8%  YAGIT, SLB ne 05742 Page af} 


-Sep-1 CLIUTL.S 1S¢.832;1 
59 1 ROUTINE setwrkknl (Limit, quota, extent, flags) = 
BEGIN 
Be 4° 
st This is the kernel mode routine that actually sets the working set parameters 
965 i Inputs: 
Me ! LIMIT = address of ws Limit 
96 ! QUOTA = address of ws quota 
96 ! EXTENT = address of ws extent 
a8 FLAGS = address of flags longword 
3f9 i Outputs: 
344 : None. The working set parameters are reset. 
0974 ine 
975 
6 MAP flags : REF S$SBBLOCK; 
097 
0978 BIND 
0380 phd = .ctl$gl_phd : S$BBLOCK; ! Point to this process's PHD 
981 ' 


34-04 i Set the values. Note that all these values are biased by the working set 


a 
389 
990 
44 
98 ! List minus one. Memory management is the sort of thing that causes one 
99% 44 H to long for the days of the abacus. 
996 0986 phd(phd$w_dfwscnt] = .phd(phd$Sw_wslist] - 1 + .Limit; 
0987 phd(phd$w_wsquota] = .phd pases wet iets - 1+ .quota; 
998 0988 phd(phd$w_wsextent] = .phd[phd$w_wslist] - 1 + .extent; 
333 BB 
1001 0991 ! If the ADJUST qualifier was specified, do it. 
Ione 4454 : 
100 99 If .flagsCset$v_expadj) 
1004 ba THEN 
1005 5 BEGIN 
1006 0996 BIND 
1007 0997 pcb = .ctl$gl_pcb : SBBLOCK; 
1008 0998 ecbtocste_cisaus = NOT .flagstset$v_adjust); 
1009 0999 ND; 
1 100 
1 
1 


ooo 
pr oor Seer 
mo 


0 
1001 RETURN 1; 
‘1002 END; 


0000 00000 SETWRKKNL: 
-WOR 


Save nothing ; 0959 
50 000000006 00 p0 9002 MOVL CILSGL_PHD, RO : 0979 
1 08 AO 0 MOVZWL 8(RO),~R1 + 0986 
1 4 C 0D ADDL LIMIT R1 : 
1A A 1 01 A 11 SuBWs |= s#1, RI, #6(RO) F 
1 08 AO 3 0016 MOVZWL 8(RO), R > 0987 
1 AC CO OOO1A ADDL2 QUOTA. R1 ; 


iE }eo-1 944 i Yee TUTe Ske Ssetmise 858.1 Page if 


18 AO 1 01 a3 0001 SUBW3 » 24(RO) ; 
1 08 AO 3 5 MOVZWL BROS af : 0988 
1 ¢ aC ¢ ADDL ¢ etTewt, R1 : | 
16 AO 1 A "i, RI 22(RO) : | 
16 0 8 5 € BBC #5. aFLAGS, 1$ > 0993, 
000000006 00 D0 000 MOVL  CTLSGL_PCB. RO : 0997 
51 10 BC or EF 000 EXTZV #6, #1, @FLAGS, R1 : 0998 
1 1 D2 0004 MCOML «RT, R Raed 
27 — ad 01 00 1 FO 0004 INSV * #0, #1, 39°R0) : 
1D 00048 1$: MOVL a RO + 1001 | 
04 0004E RET ; 1002 | 


; Routine Size: 79 bytes, Routine Base: SCODES + 0766 


3; Size: 1973 cgde + 560 data bytes 
3; Run Time: 731.9 

3; Elapsed Time: F 46.2 

3 Lines/CPU Min: 18 

3; Lexemes/CPU-Min: 180 

3; Memor ry Ue Used: 217 pages 

3; Compilation Complete 


243: AX-11 Bliss-32 V4.0-742 
18-$ep~1964 90rO8:4t CLIUTL.SRC seemise 832;1 
3 1003 1 END 
3 isi 1902 ELUDOM 
«EXTRN LIBSSIGNAL, LIBSSTOP 
3 PSECT SUMMARY 
3 Name Bytes Attributes 
; SPLITS 560 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON NOPIC .ALIGN(2) 
; SCODES 19 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 
Or Cr A ee or ee vee woe Symbols oo-o---- Pages Processing 
3 File Total ioaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBILIB.L32;1 18619 33 0 1000 00:01.8 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:SETMISC/OBJ=OBJ$:SETMISC MSRC$:SETMISC/UPDATE=(ENHS$: SETMISC) 
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